home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The PC-SIG Library 10
/
The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso
/
PC_SIGCD
/
22
/
2
/
DISK2220.ZIP
/
SCREDIT4.EXE
/
SCRDEMO.001
< prev
next >
Wrap
Text File
|
1990-10-23
|
1KB
|
44 lines
TYPE
Demo_Menu_BUFFERDEF = RECORD
B1 : STRING[10];
B2 : STRING[10];
B3 : STRING[10];
B4 : STRING[10];
B5 : STRING[10];
B6 : STRING[10];
B7 : STRING[10];
B8 : STRING[10];
P1 : STRING[3];
O1 : STRING[29];
P2 : STRING[3];
O2 : STRING[29];
M1 : STRING[40];
P3 : STRING[3];
O3 : STRING[29];
M2 : STRING[40];
P4 : STRING[3];
O4 : STRING[29];
M3 : STRING[40];
P5 : STRING[3];
O5 : STRING[29];
M4 : STRING[40];
P6 : STRING[3];
O6 : STRING[29];
M5 : STRING[40];
P7 : STRING[3];
O7 : STRING[29];
M6 : STRING[40];
P8 : STRING[3];
O8 : STRING[29];
END;
VAR
Demo_Menu_BUF : Demo_Menu_BUFFERDEF;
PROCEDURE INITIALIZE_Demo_Menu_BUF;
BEGIN
FILLCHAR(Demo_Menu_BUF,606,00);
S_STORE_BUF_LOC ('Demo_Menu',ADDR(Demo_Menu_BUF));
END;